home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Examples / Xtruder_RequestUser.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-21  |  1KB  |  30 lines
  1. /*
  2. ** 'RequestUser' example
  3. */
  4. Options Results
  5.  
  6. Address XTRUDER
  7.  
  8. RequestUser TITLE '"Hey, dude"' PROMPT '"Do you think Xtruder is great ?"' RESPONSE '"_Bloody hell, YEAH|_I''m not sure|_Nah, it sucks"'
  9.  
  10. IF RESULT = 1 THEN
  11.   RequestUser TITLE '"Me thinks..."' PROMPT '"I couldn''t agree more"'
  12. ELSE IF RESULT = 2 THEN
  13.   RequestUser TITLE '"Me thinks..."' PROMPT '"Well, let me convince you some more then"'
  14. ELSE
  15.   RequestUser TITLE '"Me thinks..."' PROMPT '"You strongly need a mental examination"'
  16.  
  17. RequestString TITLE '"Xtruder string request"' PROMPT '"Please enter your favourite virus killer"' MAXBUFLEN 130 RESPONSE '"_I''m finished, Mom|I _won''t tell"'
  18.  
  19. IF RC = 0 THEN
  20.   RequestUser PROMPT '"You entered: 'RESULT'"' RESPONSE '"Did I really ?"'
  21. ELSE
  22.   RequestUser PROMPT '"You canceled the requester..."'
  23.  
  24. RequestNumber TITLE '"Xtruder number request"' MIN 200 MAX 800 NUMBER 666 SHOWDEFAULT PROMPT '"Please enter a number"' RESPONSE '"Continue|Cancel"'
  25.  
  26. IF RC = 0 THEN
  27.   RequestUser PROMPT '"You entered: 'RESULT'"' RESPONSE '"Yup!"'
  28. ELSE
  29.   RequestUser PROMPT '"You canceled the requester..."'
  30.